0 REM << CD38-1 >>
1 REM COMMODARES PROBLEM #34-1:
2 PRINT"  DISTANCE FINDER"
3 REM SOLUTION BY
4 REM    CRAIG EWERT
5 REM
10 INPUT"ENTER WIDTH & HEIGHT";W,H : HN=W*H
20 INPUT"ENTER POINT NUMBERS";A,B
30 IF A<0 OR A>HN OR B<0 OR B>HN THEN PRINT"ERROR IN NUMBERS" : GOTO 20
40 X1=INT((A-1)/W) : Y1=A-W*X1
50 X2=INT((B-1)/W) : Y2=B-W*X2
60 DT=SQR((X2-X1)^2 + (Y2-Y1)^2)
70 PRINT"DISTANCE =";DT